home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1984 Half 1 / rerun-1984-01-06-side-b.d64 / doodl_3k jun p98 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  73 lines
  1. 1 ifpeek(44)=4thenpoke56,16:poke52,16:clr
  2. 2 goto20
  3. 5 ki=0:getik$:ifik$=""then11
  4. 6 fori=10to16:ifik$=mid$(kk$,i,1)thenki=i
  5. 7 next:ifki<>0thenreturn
  6. 8 ifkj=0then13
  7. 9 ik=188-((peek(37137)and60)or(peek(37152)and128)):fori=1to9:ifik(i)=ikthenki=i
  8. 10 next:return
  9. 11 ifkj=1then9
  10. 12 return
  11. 13 fori=1to9:ifik$=mid$(kk$,i,1)thenki=i
  12. 14 next:return
  13. 20 dimik(9)
  14. 21 gosub80
  15. 25 gosub5
  16. 26 ib=-(ib<2)*(ib+1):pokeby,b(ib)
  17. 30 onki+1goto25,31,32,33,34,35,36,37,38,50,44,45,52,46,54,57,53
  18. 31 y=-(y-1)*(y>0):goto39
  19. 32 y=y+1+(y>174):goto39
  20. 33 x=-(x-1)*(x>0):goto39
  21. 34 x=x+1+(x>158):goto39
  22. 35 y=-(y-1)*(y>0):x=-(x-1)*(x>0):goto39
  23. 36 y=-(y-1)*(y>0):x=x+1+(x>158):goto39
  24. 37 y=y+1+(y>174):x=-(x-1)*(x>0):goto39
  25. 38 y=y+1+(y>174):x=x+1+(x>158)
  26. 39 pokeby,b(0):co=20*int(y/16)+int(x/8):poke38400+co,c0
  27. 40 by=4096+16*co+y-16*int(y/16):bi=7-(x-8*int(x/8))
  28. 41 b(0)=peek(by):b(2)=b(0)or(2^bi):b(1)=b(0)and(255-(2^bi)):ib=1
  29. 42 b(0)=b(2):ifed%=0thenb(0)=b(1)
  30. 43 goto25
  31. 44 c0=-(c0+1)*(c0<7):poke38400+co,c0:goto25
  32. 45 ls%=1:goto47
  33. 46 ls%=0
  34. 47 ifkj=1thenpoke37139,128:poke37154,255
  35. 48 gosub95:ifkj=1thenpoke37139,0:poke37154,127
  36. 49 goto25
  37. 50 c8=ed%:ed%=1-ed%:b(0)=b(1):ifed%=1thenb(0)=b(2)
  38. 51 poke36879,((peek(36879)and248)orc8):goto25
  39. 52 c5=-(c5+1)*(c5<15):poke36879,((peek(36879)and15)or(16*c5)):goto25
  40. 53 gosub65:goto25
  41. 54 c8=peek(36879):poke36879,((c8and248)or7):ifkj=1thenpoke37154,255
  42. 55 gosub60:ifkj=1thenpoke37154,127
  43. 56 poke36879,c8:c8=1-ed%:ifbo<>139then25
  44. 57 poke36864,5:poke36866,150:poke36867,46:poke36869,240:poke36879,27
  45. 58 poke37154,255:poke37139,128:print"[147]":end
  46. 60 getx$:ifx$=""then60
  47. 61 bo=asc(x$):ifbo=135orbo=139thenreturn
  48. 62 ifbo>64andbo<91thenbo=bo-64
  49. 63 fori=0to18:poke38400+i,peek(38401+i):k=4096+16*i:forj=0to7:poke(k+j),peek(k+j+16)
  50. 64 next:next:k=32768+8*bo:fori=0to7:poke4400+i,peek(k+i):next:poke38419,c0:goto60
  51. 65 c8=0:c5=1:c0=0:poke36864,7:poke36866,148:poke36867,23:poke36869,252
  52. 66 poke36879,(8orc8or(16*c5)):b(0)=128:b(1)=0:b(2)=128:ib=0:ed%=1
  53. 67 fori=0to219:poke7680+i,i:poke38400+i,0:next:fori=4096to7615:pokei,0:next
  54. 68 co=110:by=5856:bi=7:x=80:y=80:poke648,30:return
  55. 79 data4,8,16,128,20,132,24,136,32
  56. 80 print"[147]joystick(j) or        keyboard(k)?"
  57. 81 getik$:ifik$=""then81
  58. 82 ifik$<>"j"andik$<>"k"then81
  59. 83 kj=0:ifik$="j"thenkj=1:poke37139,0:poke37154,127
  60. 84 fori=1to9:readik(i):next:kk$="i,jluom._[133][137][134][138][135][139]\":gosub65:return
  61. 86 fori3=i2toi2+a5:fori5=0to6:h(i5)=0:next:fori5=0toa3:i4=i1+i5
  62. 87 b=16*(20*int(i4/16)+int(i3/8))+i4-16*int(i4/16)
  63. 88 i=2^(7-i3+8*int(i3/8)):if(peek(4096+b)andi)<>0thenh(i5)=1
  64. 89 next:ifls%=0thenc=0:fori5=0to6:c=c+h(i5)*(2^i5):next:y$=y$+chr$(128+c)
  65. 90 ifls%=1thenc=128+3*h(0)+12*h(1)+48*h(2)+64*h(3):y$=y$+chr$(c)+chr$(c)
  66. 91 ifls%=2thenc=128+h(3)+6*h(4)+24*h(5)+96*h(6):y$=y$+chr$(c)+chr$(c)
  67. 92 next:return
  68. 93 a5=5:fori2=0to151step6:y$="":gosub86:print#1,y$;:next
  69. 94 a5=3:i2=156:y$="":gosub86:y$=y$+chr$(128)+chr$(128):print#1,y$:return
  70. 95 open1,4:print#1,chr$(8):a3=6:fori1=0to169step7:gosub93
  71. 96 ifls%=1thenls%=2:gosub93:ls%=1
  72. 97 next:a3=0:i1=175:gosub93:print#1,chr$(15):close1:return
  73.